perm filename BUGS.VLI[VLI,LSP] blob sn#381947 filedate 1978-09-08 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE FAA (X)
C00003 ENDMK
CāŠ—;
(DE FAA (X)
   (COND 
      ((ATOM X) X)
      (T (CONS (FAA) (FAA (CDR X))))))))

(TRACE FAA)
(FAA '(A B C))
(UNTRACE)

(DE FUU (X)
   (COND
      ((ATOM X) X)
      (T (CONS (FII) (FUU (CDR X)))))))

(DE FII () (FUU T))
(TRACE FUU FII)
(FUU '(A B C))
(UNTRACE)
(TRACE FUU)
(FUU '(A B C))
(UNTRACE)